﻿<!-- #include file="user.dll" -->
<% 
'使用该插件不得复制或转送他人等原因,如果发现，本人有权直接停止一切售后服务,不再更新！请尊敬本人劳动作品…
title="农场大亨":yltdi.ctitle:yltdilc.userss(tousid):ylt we:ylt"<img src='img/logo.gif'/><br/>":yltdilc.user:ylt""&yltdilc.usname(tjhm)&"的农场":ylt we0:yltdilc.myjls
ylt sou
ylt"农币:"&zi&mylbs&zi0&"<a href='"&mys&"/users.asp?ok=lbzh&amp;wap="&wap&"'>[兑换]</a><br/>级别:<b>"&zi&myjb&zi0&"</b>级(<b>"&zi&myjl&"/"&xjjl&zi0&"</b>)经验"
ylt we0
ylt we
ylt"当前在线<a href='mysh.asp?ok=zxrs&amp;"&wapyltdi&"'>"&yltdilc.lczx&"</a>人"
ylt we0
if int(tousid)<>int(userid) then ylt sou:ylt"<a href='"&mys&"/index.asp?wap="&wap&"'>我的农场</a>|<a href='"&mys&"/mysh.asp?ok=csgs&amp;wap="&wap&"'>继续偷窃</a>":ylt we0:end if
 set rs=server.createobject("adodb.recordset")
if ok="bz" then if zid>0 then ylt we&"你在地里面播"&cpnames&"种子成功<br/>增加经验"&sszbzjl&"点"&we0:end if:sql="select * from yltdi_sqlc_lc where cpzl=0 and shfe=100 and myid="&userid&" order by cptime":pagessss=20:else:sql="select * from yltdi_sqlc_lc where myid="&sjssx&" order by cptime":pagessss=6:end if
rs.open sql,conn,3,3
if rs.bof and rs.eof then
if ok="bz" then 
    	ylt"暂时没有空地了,正在返回已播种的农地..."
response.redirect "index.asp?wap="&wap&""
else
   	ylt"该用户还没有开通农场<br/>"
end if
else
if mygo>0 then 
if mygo=5 then ylt"&#33487;&#26684;&#20848;&#29287;&#32650;&#29356;:"
if mygo=6 then ylt"&#29399;:"
if mygol<now() then ylt"&#26080;&#29399;&#31918;":else:ylt"&#26377;&#29399;&#31918;":end if
end if
if ok="" then 
if tousid=userid then
ylt sou
if mygo=0 then ylt"无狗":end if:ylt"<a href='mysh.asp?ok=gsz&amp;wap="&wap&"'>设置</a>"&we0:yltdilc.zszzq:ylt we&"<a href='"&mys&"/lcph.asp?wap="&wap&"'>排行</a>|<a href='"&mys&"/mysh.asp?wap="&wap&"'>商店</a>|<a href='"&mys&"/mysh.asp?ok=mydj&amp;wap="&wap&"'>道具</a>|<a href='"&mys&"/mysh.asp?ok=csgs&amp;wap="&wap&"'>偷窃</a><br/><a href='users.asp?ok=hong&amp;"&wapyltdi&"'>升级红土地</a><br/>【我的土地】<a href='"&mys&"/index.asp?wap="&wap&"'>刷新土地</a>"&we0
if yltdilc.cstj>0 then ylt sou&"<a href='"&mys&"/mysh.asp?ok=yjsh&amp;wap="&wap&"'>一键收获果实</a>(vip专权)"&we0:end if:if yltdilc.cctj>0 then ylt we&"<a href='"&mys&"/mysh.asp?ok=yjcc&amp;wap="&wap&"'>一键铲除枯萎</a>(vip专权)"&we0:end if:if yltdilc.mykd(userid,0)>0 or yltdilc.mykd(userid,1)>0 then ylt sou&"<a href='mysh.asp?ok=ybz&amp;wap="&wap&"'>一键播种</a>"&we0
end if
end if

If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then	
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
rs.pagesize =pagessss
total  = rs.RecordCount
rs.absolutepage=page
mypagesize = rs.pagesize
	dim i 
	   	i=1 
	do while not rs.eof and i<=mypagesize 
id=rs("id")
tdnx=rs("tdnx")
if i mod 2=0 then 
ylt sou
else
ylt we
end if
if tdnx=1 then
ylt"(红)坑"&(page-1)*pagessss+i&""
else
ylt"坑"&(page-1)*pagessss+i&""
end if
yltdilc.zhangtai
ylt we0
i=i+1
rs.movenext 
loop 
ylt we
if page<rs.pagecount   then
ylt"<a href='"&mys&"/index.asp?ok="&ok&"&amp;page="&page+1&"&amp;dtxs="&dtxs&"&amp;tousid="&tousid&"&amp;wap="&wap&"'>下页></a>"
end if
if page>1 then
ylt"<a href='"&mys&"/index.asp?ok="&ok&"&amp;page="&page-1&"&amp;dtxs="&dtxs&"&amp;tousid="&tousid&"&amp;wap="&wap&"'>上页></a>"
ylt"<a href='"&mys&"/index.asp?ok="&ok&"&amp;page=1&amp;dtxs="&dtxs&"&amp;tousid="&tousid&"&amp;wap="&wap&"'>首页</a>"
end if
ylt"<br/>共"&total&"块地<br/><a href='"&mys&"/mysh.asp?ok=mykk&amp;wap="&wap&"'>开垦</a>"
end if
ylt"|<a href='"&mys&"/mysh.asp?tousid="&tousid&"&amp;ok=mygrck&amp;wap="&wap&"'>仓库</a>|<a href='"&mys&"/lpbz.asp?wap="&wap&"'>帮助</a>|<a href='mysh.asp?dtxs="&dtxs&"&amp;ok=lcdtcks&amp;tousid="&myid&"&amp;wap="&wap&"'>动态</a>"&we0
if dtxs="" then
'Response.write"<a href='mysh.asp?dtxs="&dtxs&"&amp;ok=lcdtcks&amp;tousid="&myid&"&amp;nbh="&nbh&"&amp;yli="&yli&"&amp;wap="&wap&"'>农场动态</a>"&we0
Else
Response.write sou&"TA的动态|<a href='index.asp?page="&page&"&amp;tousid="&tousid&"&amp;wap="&wap&"'>世界动态</a>"&we0
end if
ylt we
yltdilc.tadedt
if int(tousid)<>int(userid) then
ylt"<br/><a href='"&mys&"/index.asp?wap="&wap&"'>我的农场</a>"
end if
if useid=glusid or useid=5 or useid=8 then
ylt"<br/><a href='"&mys&"/admin.asp?wap="&wap&"'>进入管理</a>"
end if
ylt we0
yltdi.out:yltdilc.yltditx
%>